新增订单时会把已保存过的订单明细带上来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

开单流程：

第一步，新增订单，按钮代码：

Dim id As Integer = DataTables("报价单").Compute("Max(_Identify)")

Dim Filter As String = "[_Identify] > " & id

DataTables("报价单").AppendLoad(Filter, False)

With Tables("报价单")

If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

Tables("报价单").AllowEdit = True

Dim dr As Row = Tables("报价单").AddNew

dr("日期") = Date.Today

End If

End With

Dim xzcp As WinForm.Button = e.Form.Controls("新增产品")

xzcp.Enabled = True

Dim bc As WinForm.Button = e.Form.Controls("保存")

bc.Enabled = True

第二步，增加订单明细，按钮代码：

Dim sts() As String = {"dropbox2","DropBox4","DropBox1","NumericComboBox2"}

For Each st As String In sts

If e.Form.Controls(st).value Is Nothing Then

MessageBox.show("Please enter the name,phone number,Model and quantity !","Remind")

Return

End If

Dim tbl As Table = Tables("报价明细表")

Dim r As Row = tbl.AddNew()

r("订单号") = e.Form.Controls("TextBox2").Text

r("客户名称") = e.Form.Controls("DropBox4").Text

r("客户电话") = e.Form.Controls("DropBox2").Text

r("日期") = e.Form.Controls("DateTimePicker1").Text

r("产品型号") = e.Form.Controls("dropbox1").Text

r("产品类别") = e.Form.Controls("产品类别").Text

r("单价成本") = e.Form.Controls("单价成本").Text

r("销售单价") = e.Form.Controls("TextBox5").Text

r("数量") = e.Form.Controls("NumericComboBox2").Text

r("已提数量") = e.Form.Controls("NumericComboBox1").Text

'r.save

e.Form.Controls("DropBox1").Text = ""

e.Form.Controls("textbox5").Text = ""

e.Form.Controls("NumericComboBox2").Value = Nothing

e.Form.Controls("未提数量").Text = "未知"

第三步，保存，按钮代码：

If e.Form.Controls("CheckBox1").Checked = False AndAlso e.Form.Controls("CheckBox2").Checked = False Then

MessageBox.Show("Please Choose Whether To Convert To An Order!", "Error")

Return

End If

If Tables("报价单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("报价单").Current IsNot Nothing Then

If Tables("报价明细表").Current Is Nothing Then

MessageBox.Show("No details cannot be saved 无订单明细,无法保存!", "Error 错误提示")

Tables("报价单").Current.Delete

Else

Tables("报价单").Current("客户名称") = e.Form.Controls("DropBox4").Text

Tables("报价单").Current("客户电话") = e.Form.Controls("DropBox2").Text

Tables("报价单").Current("折扣") = e.Form.Controls("TextBox3").Text

Tables("报价单").Current("备注") = Tables("报价单").Current("备注") & e.Form.Controls("TextBox4").Text

'Tables("报价单").Current("已付款") = e.Form.Controls("TextBox9").Text

If Tables("报价单").Current IsNot Nothing Then

Tables("报价单").Current.Save

Tables("报价单").AllowEdit = False

End If

Tables("报价明细表").Save

End If

Dim khmc As WinForm.DropDownBox = e.Form.Controls("DropBox4")

Dim khdh As WinForm.DropDownBox = e.Form.Controls("DropBox2")

If e.Form.Controls("DropBox4").value IsNot Nothing Or e.Form.Controls("DropBox2").value IsNot Nothing Then

'添加客户信息

Dim tbl As Table = Tables("客户信息表")

Dim drn As DataRow = DataTables("客户信息表").SQLFind("客户名称 = '" & khmc.Text & "'")

Dim drp As DataRow = DataTables("客户信息表").SQLFind("客户电话 = '" & khdh.Text & "'")

If drn Is Nothing AndAlso drp Is Nothing Then

Dim n As Row = tbl.AddNew()

n("客户名称") = e.Form.Controls("DropBox4").Text

n("客户电话") = e.Form.Controls("DropBox2").Text

tbl.Current.Save()

Else If drn Is Nothing AndAlso drp IsNot Nothing Then

tbl.current("客户名称") = e.Form.Controls("DropBox4").Text

tbl.Current.Save()

Else If drn IsNot Nothing AndAlso drp Is Nothing Then

Dim n2 As Row = tbl.AddNew()

n2("客户名称") = e.Form.Controls("DropBox4").Text

n2("客户电话") = e.Form.Controls("DropBox2").Text

tbl.Current.Save()

End If

Dim zk As WinForm.TextBox = e.Form.Controls("textbox3")

Dim cpxh As WinForm.DropDownBox = e.Form.Controls("DropBox1")

Dim sl As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox2")

Dim dj As WinForm.TextBox = e.Form.Controls("textbox5")

Dim sfje As WinForm.TextBox = e.Form.Controls("textbox9")

Dim ytsl As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")

Dim bz As WinForm.TextBox = e.Form.Controls("textbox4")

Dim zffs As WinForm.ComboBox = e.Form.Controls("ComboBox1")

khmc.Text = ""

khdh.Text = ""

cpxh.Text = ""

sl.Value = Nothing

dj.Text = ""

sfje.Text = ""

zk.Text = "0"

ytsl.Value = Nothing

bz.Text = ""

zffs.Text = "Cash"

Dim t As Table = Tables("Quotation_Table2")

With Tables("报价单")

If .Current Is Nothing Then

t.Filter = "False"

Else

t.Filter = "订单号 = '" & .Current("订单号") & "'"

End If

End With

With Tables("报价明细表")

Tables("报价明细表").Filter = "1=2"

.Cols("数量").GrandTotal = True

.Cols("金额").GrandTotal = True

.GrandTotal = False

End With

Dim xzcp As WinForm.Button = e.Form.Controls("新增产品")

xzcp.Enabled = False

Dim bc As WinForm.Button = e.Form.Controls("保存")

bc.Enabled = False

If e.Form.Controls("CheckBox1").Checked = True Then

If MessageBox.Show("Are You Sure To Convert This Quotation To An Order?","Confirm",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

Dim dr1 As Row = Tables("报价单").Current

Dim Cols1() As String = {"日期","订单号","客户名称","客户电话","折扣","编辑者","备注"}

Dim Cols2() As String = {"日期","订单号","客户名称","客户电话","折扣","编辑者","备注"}

Dim Cols3() As String = {"日期","订单号","客户名称","客户电话","产品型号","产品类别","数量","销售单价","备注","单价成本"}

Dim Cols4() As String = {"日期","订单号","客户名称","客户电话","产品型号","产品类别","数量","销售单价","备注","单价成本"}

Dim dr2 As DataRow = DataTables("销售订单").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

For Each dr3 As DataRow In dr1.DataRow.GetChildRows("报价明细表")

Dim dr4 As DataRow = DataTables("销售明细表").AddNew()

For i As Integer = 0 To Cols3.Length -1

dr4(Cols4(i)) = dr3(Cols3(i))

Tables("报价单").Current.delete

DataTables("报价单").Save()

DataTables("销售订单").Save()

DataTables("销售明细表").Save()

End If

帮我看看是不是代码或者逻辑有问题。

[此贴子已经被作者于2021/12/25 18:38:17编辑过]

主题：新增订单时会把已保存过的订单明细带上来