Di m cm d As New S QLCommand
Di m dt As D ataTable
cm d.C
Di m tr v4 As Wi nForm.Tr eeV iew = e.Form.Cont rols("Tr eeView4")
cm d.CommandText = "SE LE CT DI STINCT Year(日期) As 年, Mo nth(日期) As 月, 款号, 设计师, 纸样师, 车板师 From {款号录入}"
d t = cm d.Ex ecu teReader()
tr v4.Bu ildT ree(dt, "年|月")
Di m trv1 As Wi nFo rm.Tre eVi ew = e.F orm.Co nt rols("Tr eeView1")
cm d.Co mmandText = "SE L ECT DI STINCT 设计师 From {款号录入}"
dt = cm d.Execu teReader()
trv1.B uildTree(dt, "设计师")
D im trv2 As Wi n For m.Tre eV iew = e .F o rm.Co trols("Tr eeView2")
cm d.C om man dT ext = "SE L ECT D IST INCT 纸 样师 From {款 号录入}"
d t = cm d.Exe cuteReader()
trv2.B uil dTree(dt, "纸样师")
Di m t rv3 As W in Form.Tree View = e.Form.Cont rols("Tr eeView3")
c md.Co mandTe xt = "SE L ECT DI ST INCT 车板师 F rom {款号录入}"
d t = cmd.Ex ecu te Reader()
tr v3.Bu ild Tr ee(d t, "车板师")