主题：[求助]问几个关于外部数据源的问题：

3、我之所以这样做是因为：希望用狐表实现管理软件不能实现的功能，当然我先得在其他管理软件的后台数据库中增加几个我自己需要的数据表，这种方法可行吗？有没有更好的方法呢？
在没有绝对把握情况下，不要在其他管理软件的后台数据库中增加列，一是当你的FOXTABLE编程中产生误操作时可能对它产生不经意的破坏，另一个当其他管理软件升级时，如果涉及到库结构变化和数据移植后，你原来增加的列数据能否接着二次移植呢？建议对其他ERP数据库只采取读，不采取写操作。

4、在狐表中能新增外部的数据表吗，比如新增到SQL数据库中，怎样搞啊？
这个在帮助中使用指南中“外部数据”章节里有答案，网站中也有讨论。

5、我希望在外部数据源中的某个表中有新增或修改记录的行为时，启动一段计算代码，取得新增的那些记录中的某些值，这样可行吗，具体是那些事件？
可以增加按钮对新增的记录进行筛选,参考:
StateFilter

状态筛选，StateFilterEnum型枚举，可选值有：

None  :显示所有行
Added :显示新增行
Modified :显示已经修改的行
UnChanged :显示没有修改的行

值可以组合，例如在当前表显示新增和已修改行：CurrentTable.StateFilter = StateFilterEnum.Added Or StateFilterEnum.Modified

显示所有行:CurrentTable.StateFilter = StateFilterEnum.none 

6、我看到其他管理软件的后台数据库中有很多“系统数据表”，这和“用户数据表”有什么区别？

“系统数据表”是SQL等自身建立的，不用管它。“用户数据表”才是用户自己建立的，才是应用系统使用的数据库。

假设做一个ERP的库存查询系统。表有2个：库存表icinventory（FItemID、fstockid、fqty），基础资料表t_item（包含仓位和产品表：fitemid、fitemclassid、flevel、fnumber、fname、FparentID、fdetail），具体字段含义暂不做解释，有时结合数据应该可以猜出来的。
表中建立子窗体，使用5种控件:SplitContainer、TreeView、DataList、Button、Label做ERP的库存查询系统。另外使用一个全局变量vars("item")

充分利用SQLCommand的cmd.ExecuteReader()读外部数据源（可以跨表操作，之后还可以进一步跨数据源操作）、写树节点、数据列表的功能。
按钮一：按产品查询
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim td As WinForm.TreeNode
tv.Nodes.clear
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText ="SELECT * FROM t_item where fitemclassid=4 and flevel =1"
dt = cmd.ExecuteReader() '生成统计表
For Each dr As Datarow In dt.Datarows
    td=tv.Nodes.Add( dr("FItemID"),  dr("fnumber") & ":" & dr("fname"),"home.ico")          
Next
vars("item")="cp"
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.RowFilter = false
dst.Build()

按钮二：按仓位查询
 Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim td As WinForm.TreeNode
tv.Nodes.clear
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText ="SELECT * FROM t_item where fitemclassid=5 and flevel =1"
dt = cmd.ExecuteReader() '生成统计表
For Each dr As Datarow In dt.Datarows
    td=tv.Nodes.Add( dr("FItemID"),  dr("fnumber") & ":" & dr("fname"),"home.ico")          
Next
vars("item")="ck"
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.RowFilter = false
dst.Build()

目录树控件的 AfterSelectNode事件代码：（以下代码框架简单，只是结合数据库的SELECT语句有所不同而已。）

dim itemk3 as string
Select Case vars("item")
  Case "cp"
        itemk3 ="b.fitemid"
  Case "ck"
        itemk3 ="b.fstockid"
    Case Else
       
End Select

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C

cmd.CommandText ="SELECT * FROM t_item where FparentID=" & e.node.name  & " and (fdetail=0 or (fdetail=1 and  FItemID in (SELECT a.FItemID FROM t_item as a INNER JOIN icinventory as b ON a.fitemid=" & itemk3 & " where  b.fqty <> 0 and a.FparentID=" & e.node.name & " ))) "
dt = cmd.ExecuteReader() '生成统计表
e.Node.Nodes.Clear
dim level0 as integer
For Each dr As DataRow In dt.Datarows
    if not dr("fdetail") then
       e.Node.Nodes.Add( dr("FItemID"),dr("fnumber") & " " & dr("fname"),"home.ico")    
    else  
       e.Node.Nodes.Add( dr("FItemID"),dr("fnumber") & " " & dr("fname"),"Accept.ico")    
    end if
next
 dim selt1,selt2,selt3 as string
 Select Case vars("item")
   Case "cp"
       selt1="SELECT a.fnumber AS 产品代码, a.fname AS 产品型号, c.fnumber AS 仓库代码, c.fname AS 仓库名称, b.fqty AS 库存数量 "
       selt2="FROM (t_item AS a INNER JOIN icinventory AS b ON a.fitemid=" & itemk3 & ") INNER JOIN t_item AS c ON b.fstockid=c.fitemid "
   Case "ck"
       selt1="SELECT a.fnumber AS  仓库代码, a.fname AS 仓库名称, c.fnumber AS 产品代码, c.fname AS 产品型号, b.fqty AS 库存数量 "
       selt2="FROM (t_item AS a INNER JOIN icinventory AS b ON a.fitemid=" & itemk3 & ") INNER JOIN t_item AS c ON b.fitemid=c.fitemid "        
     Case Else       
 End Select
 selt3="where a.flevel>1 and a.fdetail=1  and b.fqty > 0 and a.fparentid=" & e.node.name  & " or (a.FItemID=" & e.node.name  & " and b.fqty > 0) "
 cmd.CommandText =selt1 & selt2 & selt3
 dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()