以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ＱＱserver编码报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112728)
--  作者：wei0769
--  发布时间：2018/1/2 8:34:00
--  ＱＱserver编码报错


图片点击可在新窗口打开查看此主题相关图片如下：9.jpg
图片点击可在新窗口打开查看

 

报错后，也会加上这一行


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qq编号.zip

[此贴子已经被作者于2018/1/2 8:45:21编辑过]
--  作者：有点甜
--  发布时间：2018/1/2 9:02:00
--  
Dim dr As DataRow = DataTables("bh").Find("表名 = \'abcd\'")
If dr IsNot Nothing Then
    Dim id As Integer
    Dim st As String = dr("序号")
    If Integer.TryParse(st,id) Then
        id = id + 1
        dr("序号") = id
        dr.Save
    End If
Else
    dr = DataTables("bh").AddNew
    dr("表名") = "abcd"
    dr("序号") = "1"
    dr.Save
End If
--  作者：wei0769
--  发布时间：2018/1/2 9:34:00
--  

好的，试下，dr是没有指明值，可以实现

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qq编号.zip

[此贴子已经被作者于2018/1/2 9:44:24编辑过]