- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- _Identify错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70693)
-- 发布时间：2015/6/26 15:16:00
-- _Identify错误
此主题相关图片如下：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
-- 发布时间：2015/6/26 15:19:00
--
1、升级到最新版；
2、你的wph_chtzdmx表的_Identify列的值有问题，你是不是改动过表。
-- 发布时间：2015/6/26 15:22:00
-- 回复：（大红袍）1、升级到最新版； 2、你的...
内部表是我自己新增的啊，默认的十行我全部删除掉了
-- 发布时间：2015/6/26 15:23:00
--
[此贴子已经被作者于2015/6/26 15:24:26编辑过]
-- 发布时间：2015/6/26 15:26:00
--
哦，你不能用 dr.save
必须这样用
Dim cmd As new SQLCommand
cmd.CommandText = "select * f rom {表A}"
Dim dt As DataTable = cmd.ExecuteReader(True)
Dim ndr = dt.AddNew
ndr("第一列") = 2
dt.Save
-- 发布时间：2015/6/26 16:08:00
--
可以了，谢谢