主题：[求助]

比较麻烦，如

 

Dim zd As New Dictionary(Of String, Integer)
zd.Add("苹果",5)
zd.Add("香蕉",9)
zd.Add("波罗",2)
zd.Add("桔子",1)

Dim mval As Double = 0
Dim mkey As String = ""
For Each key As String In zd.Keys
    If zd(key) > mval Then
        mval = zd(key)
        mkey = key
    End If
Next

msgbox(mkey & " " & mval)

比如

 

xzsps = DataTables("报价表").GetValues("菜品编号","菜品属性 = '小宗' and 供应商 = '" & mkey & "'")

 

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

 

请具体做一个实例发上来，说明你要做的功能。

Dim xzsps As List(Of String)
xzsps = DataTables("报价表").GetValues("菜品编号","菜品属性 = '小宗'")
For Each xzsp As String In xzsps
    Dim  dr As DataRow =  DataTables("报价表").Find("菜品编号 = '" & xzsp & "' And 菜品属性 = '小宗'", "金额")
    Dim bjdr As DataRow = DataTables("比价表").AddNew()
    bjdr("日期") = dr("日期")
    bjdr("菜品编号") = dr("菜品编号")
    bjdr("菜品名称") = dr("菜品名称")
    bjdr("品类") = dr("品类")
    bjdr("单位") = dr("单位")
    bjdr("规格") = dr("规格")
    bjdr("数量") = dr("数量")
    bjdr("单价") = dr("单价")
    bjdr("金额") = dr("金额")
    bjdr("供应商") = dr("供应商")
    bjdr("菜品属性") = dr("菜品属性")
   
   
Next

sqlserver数据库，请把#改成单引号，如

 

dt.LoadFilter = "[日期] > '" & StartDate & "' and 供应商 = '" & User.Name & "'"