以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在VS中实现ft的逻辑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101872)
--  作者：huhu
--  发布时间：2017/6/8 18:44:00
--  在VS中实现ft的逻辑
         红色的代码是ft可以用的。那么怎么转换成vs可以用的？就是vs中怎么实现红色代码的逻辑？
          If Bind = 1 Then
                Dim dr As DataRow = DataTables("可用数量表").SQLFind("物料编码 = \'" & wlbm & "\'")
                If dr IsNot Nothing Then
                    strSql = "s elect * from [可用数量表]  where " & "and id_flag = \'" & dr("id_flag") & "\'"
                End If
            ElseIf Bind = "" Or Bind = "null" Then
                filter &= "and 在库数量 > 0"
                strSql = "s elect * from [可用数量表]  where " & filter
            End If
            Dim adapter As New SqlClient.SqlDataAdapter(strSql, cn)
            Dim dt As New DataTable
            adapter.Fill(dt)
            cn.Close()
            Dim state As String = OrderQueryBLL.ConvertToJsonObject(dt)
            Return state
--  作者：jspta
--  发布时间：2017/6/8 19:35:00
--  
引用Foxtable.exe和Foxtable.Lib.dll
导入命名空间Foxtable，不需要改动代码就能实现了
--  作者：huhu
--  发布时间：2017/6/8 19:38:00
--  
群里说，这样提供的接口只能是ft用，其他的用不了。
--  作者：jspta
--  发布时间：2017/6/8 20:14:00
--  
这个本来就是Ft提供的方法，除非你换其它方法。
比如Dim adapter As New SqlClient.SqlDataAdapter(strSql, cn) 需要一套方法连接数据库
--  作者：有点色
--  发布时间：2017/6/9 9:19:00
--  
 请自行学习一下dataTable、DataSet这两个对象