主题：SQL 疑问

大哥大姐告诉小弟一下

连接SQL数据库的时候
为什么用数据库名称连接时出现这个错误对话框

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


我用IP连接，又可以。。。。。


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



郁闷啊，，测试了4小时，才发现用IP可以。
大哥大姐，是什么原因啊。。。
我都用第一种连接方法，写好了文件，现在连接不上了，要用IP连接，不知道表格中的代码，与菜单中的代码会不会出错，，，，，555

没问题吧，只要外部数据名相同就没问题。

用IP连接是最好的了。

有时服务器隐藏了服务器名，就只有用IP了。

名称一样，有时可以连接，有时提示出错

还是IP安静些，，，哎

谢谢
我已经改用IP。。。

如果用IP会不会有这个问题

IP冲突
域里面很多用户都是自动IP。。。。。
那一天某个用户自动IP与服务器IP一样，

好危险。。

用IP比较好

            Dim ab As DataRow
            ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
            If ab IsNot Nothing Then 
                dr("日期计算参数") = ab("日期计算参数")
            else
                Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢!  :)  ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If

此代码位置在定单表中（定单表是外部数据源）,    交期计算参数表是内部表，，，，

执行此代码时 
ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
            If ab IsNot Nothing Then 
                dr("日期计算参数") = ab("日期计算参数")
            else

此部分不执行，，，，认真检查过，表名，列名，都是OK的，客户名称也是一致的（列项目都来源于客户资料表）

ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
是不是   交期计算参数表，也要是外部数据源才能执行此命令？？？？？

代码不全,看不懂了~    dr是???

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
  case "交货日期"
     Dim ab As DataRow
            ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
            If ab IsNot Nothing Then 
                dr("日期计算参数") = ab("日期计算参数")
            else
                Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢!  :)  ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
End Select

好像触发日期列时，无法执行这一段
ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
            If ab IsNot Nothing Then 
                dr("日期计算参数") = ab("日期计算参数")


改为
Select Case e.DataCol.Name
  case 客户名称
     Dim ab As DataRow
            ab = DataTables("交期计算参数").Find("[客户名称] = '" & e.NewValue & "'")
            If ab IsNot Nothing Then 
                dr("日期计算参数") = ab("日期计算参数")
            else
                Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢!  :)  ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
End Select
改为字符列，触发代码，又可以