Select Case e.DataCol.Name
Case "SPDM"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("SPDM") Then
dr("KCSL") = Nothing
Else
Dim filter As String
filter = ("spdm='" & dr("SPDM") & "' and GG1DM='" & dr("GG1DM") & "' and GG2DM='" & dr("GG2DM") & "'")
pr = DataTables("SPCKB").Find(filter)
If pr IsNot Nothing Then
dr("KCSL") = pr("SL")
End If
End If
End Select
为什么这段代码没有效果的，不会出现引用的SL
加好友 
发短信
Post By：2020/6/29 4:00:00 [只看该作者]
