主题：记录数量大数据库使用什么方式

If e.DataCol.Name = "供应商ID" Then 

      If e.NewValue Is Nothing Then

         e.DataRow("供应商") = Nothing 

   Else 

   Dim gym As DataRow = e.DataRow

   Dim gyl As DataRow 

       gyl = DataTables("目录").SQLFind("[供应商ID] = '" & e.NewValue & "'")

   If gyl IsNot Nothing Then 

           gym("供应商") = gyl("供应商名称") 

   Else

           gym("供应商")  = "无记录"

End If

End If

End If