主题：百思不得其解

出错图：

此主题相关图片如下：11.jpg

代码

DataColChanged:

　Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "市场片区_省市"
        dr("市场片区_市") = Nothing
        dr("市场片区_县市") = Nothing

　        dr("市场代码") = Nothing
    Case "市场片区_市"
        dr("市场片区_县市") = Nothing
        dr("市场代码") = Nothing
    Case "市场片区_县市"
        Dim sss As String
        Dim xss As String
        Dim qs As String
        sss = dr("市场片区_市")
        xss = dr("市场片区_县市")
        sss = sss.SubString(0,2)
        xss = xss.SubString(0,2)
        sss = getpy(sss,True)
        xss = getpy(xss,True)
        qs = sss.ToUpper() & xss.ToUpper()
        dr("市场代码") =  qs
        Dim khdm As new SQLCommand
        khdm.C
        khdm.CommandText = "select count(*) from {编号} where [前缀] =  '"& qs &"' "
        If khdm.ExecuteScalar = 0 Then
        Dim ww As String = "客户档案"
            khdm.CommandText = "insert into 编号(表名,前缀,顺序号) values('"& ww &"','"& qs &"',1)"
            khdm.ExecuteNonQuery
        End If
End Select

数据修改变动时：就出现这个错误

要上传项目的。

只传这个，别人无法帮助你的。

这个项目程序：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目55.rar

但是是使用sql外部数据源，

最好使用ACCESS。否则文件打不开。

 

这些是有问题的，如果字符的长度小于3，就会出错。

 

sss = sss.SubString(0,2)
xss = xss.SubString(0,2)

如果你的SQL能在广域网打开，也是可以的。

最好使用内部数据源。