此主题相关图片如下：qq截图20150626151255.png
Dim djbh As String
Dim spdm As String
Dim gg1dm As String
Dim gg2dm As String
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
Dim cmb As WinForm.ComboBox
Dim a1 As String ="SELECT * F rom {wph_chtzdmx}"
Dim a2 As String =" where djbh='"+djbh+"' And spdm='"+spdm+"' and gg1dm='"+gg1dm+"' and gg2dm='"+gg2dm+"'"
Dim taba As String =a1+a2
cmd.CommandText = taba
dt = cmd.ExecuteReader(True)
If dt.DataRows.Count=0 Then '如果不存在则添加
dr= dt.AddNew
'dr("djbh")=djbh '获取父窗口的单据编号
'dr("spdm")=spdm
'dr("gg1dm")=gg1dm
'dr("gg2dm")=gg2dm
'dr(lmc)=sl
'dr("hjsl")=gzc+shc+cdc+bjc+hzc
'dr("hjje")=(gzc+shc+cdc+bjc+hzc)*bzsj
dr.save
Else '否则更新
'dt.DataRows(0)(lmc)=sl
'dr("hjsl")=gzc+shc+cdc+bjc+hzc
'dr("hjje")=(gzc+shc+cdc+bjc+hzc)*bzsj
dt.DataRows(0).save
End If
加好友 
发短信
Post By：2015/6/26 15:16:00 [显示全部帖子]
