Dim dt As Table = Tables("订单明细")
Dim Result As DialogResult
……
For c As Integer = 0 To sheet.Cols.Count - 1
If dt.Cols.Contains(sheet(0,c).Text.replace(" ", "")) Then
nms.Add(sheet(0,c).Text.replace(" ", ""), c)
End If
Next
For l As Integer = 1 To Sheet.Rows.Count -1
If sheet(l, nms("物料代号")).Text.trim > "" Then
Dim ndr As Row = dt.AddNew
For Each m As String In nms.keys
If dt.Cols(m).IsBoolean Then
If Sheet(l,nms(m)).Text = "" OrElse Sheet(l,nms(m)).Text = "False" OrElse Sheet(l,nms(m)).Value = 0 Then
ndr (m) = False
Else
ndr (m) = True
End If
Else If dt.Cols(m).datacol.Expression > "" Then
……
加好友 
发短信
Post By：2024/10/5 20:36:00 [显示全部帖子]
Post By：2024/10/7 20:19:00 [显示全部帖子]
