Dim dru1 As DataRow
dru1 = DataTables(fr & "订单核价系统").Find("客户 = '" & kh.Text & "'And 客户担当 = '" & kd.Text & "'And 类别 = '" & lb.Text & "'And 品名 = '" & pm.Text & "'And 款号 = '" & ks.Text & "'And 样衣款号 = '" & yk.Text & "'")
Dim tm As String = ProjectPath & "RemoteFiles\kt\" '指定模板文件
Dim Rgf As MSExcel.Range = Ws.Range("N2:P" & Rgh.Rows.Count-6)Rgf.Value = New XLS.Picture(GetImage(tm & dru1("样衣款号") & dru1("款号") & ".jpg"))
此主题相关图片如下:01.jpg
这个代码怎么写?