求助甘特图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

去掉第二个循环：For j As Integer = 0 To ja(i).Count - 1

For Each file As String In dlg.FileNames

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables(TbName).StopRedraw() '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

'msgbox(1)

Dim nms() As String = {"商品标识","书号","书名","活动_参加否","活动_开始时间","活动_结束时间"}

Dim lsh As String = sheet(0,0).Text '第一行第一列

'注意下面的循环变量从3开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh0 As String = sheet(n,3).Text

Dim bh1 As String = sheet(n,4).Text

Dim filter As String = "1=1"

If bh0 > "" Then

filter &= " and 商品标识 = '" & bh0 & "'"

Else

filter &= " And 商品标识 Is null"

End If

If bh1 > "" Then

filter &= " and 书号 = '" & bh1 & "'"

Else

filter &= " And 书号 Is null"

End If

'msgbox(2)

Dim cmd As New SQLCommand '后台查找

cmd.C

cmd.CommandText = "sel ect * from {JD_ERP品种配置} where 1=2" '不加载数据

Dim dt As DataTable = cmd.ExecuteReader(True)

Dim dr As DataRow = dt.sqlFind(filter)

If dr Is Nothing Then '如果不存在同编号的订单

Dim dr1 As Row = Tables(TbName).AddNew()

For m As Integer = 0 To nms.Length - 1 '开始导入

dr1(nms(m)) = Sheet(n,m).Value

dr1("创建人") = user_rename

dr1("创建日期") = Date.Now

dr1("创建人编号") = user_ID

hj = hj + 1 '记录导入的条数

Else

Dim dr1 As DataRow = dt.DataRows(0)

For m As Integer = 0 To nms.Length - 1 '开始导入

dr1(nms(m)) = Sheet(n,m).Value

dr1("编辑人") = user_rename

dr1("编辑日期") = Date.Now

dr1("编辑人编号") = user_ID

hj = hj + 1 '记录导入的条数

End If

Tables(TbName).ResumeRedraw() '停止绘制

CurrentTable.Save '保存

Next ''-----合计导入--------------

红色代码无效，会重复导入数据

Dim cmd As New SQLCommand '后台查找

cmd.C

cmd.CommandText = "sel ect * from {JD_ERP品种配置} where " & filter '不加载数据

Dim dt As DataTable = cmd.ExecuteReader(True)

Dim dr1 As dataRow

If dt.datarows.count = 0 Then '如果不存在同编号的订单

dr1 = dt.AddNew()

else

dr1 = dt.DataRows(0)

end if

For m As Integer = 0 To nms.Length - 1 '开始导入

dr1(nms(m)) = Sheet(n,m).Value

dr1("创建人") = user_rename

dr1("创建日期") = Date.Now

dr1("创建人编号") = user_ID

dr1.save

hj = hj + 1 '记录导入的条数

Dim p As New prt.RenderImage

p.Image = GetImage("c:\1.png")

Dim g As Graphics = p.Graphics

g.DrawImage(getImage("c:\2.jpg"),50,10)

p.Repaint()

将图片2合并到图片1

[此贴子已经被作者于2020/9/24 17:13:23编辑过]

Dim img = getimage("c:\1.png")

Dim bmp As new bitmap(img.Width, img.Height) '宽高

Dim g = graphics.fromimage(bmp)

g.DrawImage(img,0,0)

Dim img2 = getimage("c:\2.png")

g.DrawImage(img2,0,0)

bmp.save("c:\3.png"，img.RawFormat)

bmp.dispose

Dim img = getimage("c:\1.png")

Dim bmp As new bitmap(img.Width,img.Height) '宽高

Dim g = graphics.fromimage(bmp)

g.DrawImage(img,0,0)

Dim img2 = getimage("c:\2.jpg")

g.DrawImage(img2,0,0)

bmp.save("c:\3.jpg",img.RawFormat)

bmp.dispose

此主题相关图片如下：微信截图_20200924172454.png

Dim bmp As new bitmap(cint(img.Width),cint(img.Height))

主题：求助甘特图