主题：窗口录入与查询

 看了一下，无法做到你需要的这种效果，如果要做的话，也相当麻烦。

 

logo不是可以直接用pictureBox控件来直接显示的吗？

 

http://www.foxtable.com/webhelp/scr/1607.htm

 

 

 

Dim t As Table = e.Form.Controls("Table2").Table
Dim 供应商 = e.Form.Controls("供应商").Text
Dim 采购订单编号 = e.Form.Controls("采购订单编号").Text
Dim 联络人 = e.Form.Controls("联络人").Text
Dim 采购员 = e.Form.Controls("采购员").Text
Dim 订单日期 = e.Form.Controls("订单日期").Text
Dim 供应商传真 = e.Form.Controls("供应商传真").Text
Dim 申请部门 = e.Form.Controls("申请部门").Text
Dim 月结方式 = e.Form.Controls("月结方式").Text
Dim 币种 = e.Form.Controls("币种").Text
Dim 税率 = e.Form.Controls("税率").Text
Dim 审批人 = e.Form.Controls("审批人").Text
Dim 确认人 = e.Form.Controls("确认人").Text
Dim 收货人 = e.Form.Controls("收货人").Text

Dim dr As DataRow
dr = t.DataTable.Find("采购订单编号 = '" & 采购订单编号 & "'")
If dr IsNot Nothing Then
    MessageBox.Show("此序号已经存在!")
Else
    For Each r As Row In t.Rows
        r("供应商") = 供应商
        r("采购订单编号") = 采购订单编号
        r("联络人") = 联络人
        r("采购员") = 采购员
        r("订单日期") = 订单日期
        r("供应商传真") = 供应商传真
        r("申请部门") = 申请部门
        r("月结方式") = 月结方式
        r("币种") = 币种
        r("税率") = 税率
        r("审批人") = 审批人
        r("确认人") = 确认人
        r("收货人") = 收货人
    Next
End If

改成