serverfield,serverfield客服电话

1.软文推荐

2.软文推荐

3.软文推荐

NC core

数控核心

NC server

数控服务器

field device control

现场设备控制

transparent model of industrial Ethernet

工业以太网透明模型

Private Function S_GetData() As Boolean

Dim rd As DAO.Recordset

Dim rdacc As DAO.Recordset

Dim i As Integer

Dim lRow As Long

Dim sSQL As String

Dim sXLSPath As String

Dim sMDBPath As String

Dim bErr As Boolean

On Error GoTo ERR

S_GetData = False

Screen.MousePointer = 11

'sPath 是excel的路径 msMDBPath是数据库路径！~

sMDBPath = msMDBPath "PH.MDB"

Set Db = OpenDatabase(sPath, False, False, "Excel 8.0;")

Set DbAcc = OpenDatabase(sMDBPath)

Set rd = Db.OpenRecordset("sheet1$")

sSQL = "DELETE FROM TH"

DbAcc.Execute sSQL

sSQL = "SELECT * FROM TH"

Set rdacc = DbAcc.OpenRecordset(sSQL)

lRow = 0

For i = 1 To rd.RecordCount

If Trim(rd!区分) = "B" Or Trim(rd!区分) = "R" Then

rdacc.AddNew

rdacc.Fields("受付番号") = rd.Fields("受付番号")

rdacc.Fields("受付日") = rd.Fields("受付日")

rdacc.Fields("受付时间") = rd.Fields("受付时间")

rdacc.Fields("枚数") = rd.Fields("枚数")

rdacc.Fields("内訳") = rd.Fields("内訳")

rdacc.Fields("内容") = rd.Fields("内容")

rdacc.Fields("区分") = rd.Fields("区分")

rdacc.Fields("物件(栋)コード") = rd.Fields("物件(栋)コード")

rdacc.Fields("BUG数") = rd.Fields("BUG数")

If Trim(rd!区分) = "R" Then

rdacc.Fields("区画番号") = rd.Fields("区画番号")

Else

rdacc.Fields("区画番号") = " "

End If

rdacc.Fields("支払、请求区分") = rd.Fields("支払、请求区分")

rdacc.Fields("制作者") = rd.Fields("制作者")

rdacc.Fields("校正者") = rd.Fields("校正者")

rdacc.Fields("最终校正UP") = rd.Fields("最终校正UP")

rdacc.Fields("时间") = rd.Fields("时间")

rdacc.Fields("校正KB") = F_gGetField(rd.Fields("校正済"), 0)

rdacc.Fields("纳品区分") = F_gGetField(rd.Fields("纳品区分"), 0)

rdacc.Fields("Update") = F_gGetField(rd.Fields("Update"), 0)

rdacc.Fields("番号") = i + 1

rdacc.Update

End If

rd.MoveNext

Next

rd.Close: Set rd = Nothing

rdacc.Close: Set rdacc = Nothing

Db.Close: Set Db = Nothing

Spr.ReDraw = False

sSQL = ""

sSQL = sSQL " SELECT TH.*,ISNULL(ServerField.区画番号) AS TMPSORT FROM TH " vbCrLf

sSQL = sSQL " LEFT JOIN ServerField " vbCrLf

sSQL = sSQL " ON TH.[物件(栋)コード]=ServerField.[物件(栋)コード] " vbCrLf

If s区分 = "R" Then

sSQL = sSQL " AND TH.[区画番号]= ServerField.[区画番号] " vbCrLf

End If

sSQL = sSQL " AND TH.[支払、请求区分]= ServerField.[支払、请求区分] " vbCrLf

' sSQL = sSQL " where TH.区分='" s区分 "'" vbCrLf

sSQL = sSQL " where 1=1" vbCrLf

sSQL = sSQL " and [内訳] null" vbCrLf

sSQL = sSQL " and 制作者='" Trim(Txt外注先.Text) "'" vbCrLf

Set rdacc = DbAcc.OpenRecordset(sSQL)

lRow = 0

If rdacc.EOF = True Then

rdacc.Close

Set rdacc = Nothing

Screen.MousePointer = 0

Txt外注先.SetFocus

msg "C07"

S_GotFocus Txt外注先

Exit Function

End If

' rdacc.MoveFirst

'

' If rdacc.RecordCount MaxRow Then

' Spr.MaxRows = rdacc.RecordCount

' Else

' Spr.MaxRows = MaxRow

' End If

S_ClearField Spr, Spr

Spr.TopRow = 1

Do While rdacc.EOF = False

lRow = lRow + 1

If lRow MaxRow Then

Spr.MaxRows = lRow

Else

Spr.MaxRows = MaxRow

End If

Spr.SetText 物件コードXls, lRow, rdacc.Fields("物件(栋)コード")

Spr.SetText 区画番号Xls, lRow, rdacc.Fields("区画番号")

Spr.SetText 内訳Xls, lRow, rdacc.Fields("内訳")

Spr.SetText 受付番号Xls, lRow, rdacc.Fields("受付番号")

Spr.SetText 制作者Xls, lRow, rdacc.Fields("制作者")

If F_gGetField(rdacc.Fields("Update"), 0) = 1 Then

Spr.SetText 纳Xls, lRow, "済"

Else

Spr.SetText 纳Xls, lRow, "未"

End If

Spr.SetText 番号Xls, lRow, rdacc.Fields("番号")

Spr.SetText 枚数Xls, lRow, rdacc.Fields("枚数")

Spr.SetText RBXls, lRow, rdacc.Fields("区分")

If F_gGetField(rdacc.Fields("Update"), 0) = 0 Then

Spr.SetText FTPXls, lRow, 1

End If

Spr.SetText 请求Xls, lRow, rdacc.Fields("支払、请求区分")

Spr.SetText BUG数Xls, lRow, rdacc.Fields("BUG数")

rdacc.MoveNext

Loop

lblCntXls.Caption = lRow

rdacc.Close: Set rdacc = Nothing

Spr.ReDraw = True

S_sum

Screen.MousePointer = 0

S_GetData = True

Exit Function

ERR:

Screen.MousePointer = 0

MsgBox ERR.Description

End Function