weixin_44951606
Map1e丶
2021/01/18 00:30
  • 开发语言

        
Sub test()
    
    Sheets("打印发货单").Cells.Clear
    Set dNum = CreateObject("scripting.dictionary")
    With Sheets("发货单明细")
        LastRowA = .Cells(Rows.Count, "a").End(xlUp).Row
        For i = 2 To LastRowA
            Key = .Cells(i, 8).Value
            dNum(Key) = ""
        Next
            arr = dNum.keys
            '.Range("a12").Resize(1, UBound(arr) + 1) = arr
            '.Range("a12").Resize(UBound(arr) + 1) = Application.Transpose(arr)
        
        For i = 0 To UBound(arr)
                    Sheets("模板").[A3] = "客户:"
                    Sheets("模板").[c3] = ""
                    Sheets("模板").[f2] = ""
                    Sheets("模板").Range("A5:F14").ClearContents
        
            k = 0
            For j = 2 To LastRowA
                If .Cells(j, 8) = arr(i) Then
                    Sheets("模板").[A3] = "客户:" & .Cells(j, 2)
                    Sheets("模板").[c3] = .Cells(j, 1)
                    Sheets("模板").[f2] = arr(i)
                    
                    Sheets("模板").Cells(5 + k, 1) = .Cells(j, 3)
                    Sheets("模板").Cells(5 + k, 2) = .Cells(j, 4)
                    Sheets("模板").Cells(5 + k, 3) = .Cells(j, 5)
                    Sheets("模板").Cells(5 + k, 4) = .Cells(j, 6)
                    Sheets("模板").Cells(5 + k, 5) = .Cells(j, 7)
                    k = k + 1
                End If
            
            Next
            
            Sheets("模板").Range("A1:g19").Copy
            Sheets("打印发货单").Activate
            Sheets("打印发货单").Cells(i * 19 + 1, 1).Select
            
            
            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            ActiveSheet.Paste
            
        
        Next
     
            
    End With

End Sub
'1 ,18,35
'1 2 3
 

1个回复
m0_51165837
m0_51165837
2021/01/18 00:08
  • c++

求源代码,要求写出日报表,月报表和年报表。采纳后可答谢。

0个回复
z1095582370
z1095582370
2021/01/17 23:42
  • c语言

下面是我部分的代码,求大佬指点,弄了一天了看不出来到底哪里错了,情况是这样的:

1.如果gameover=0,也就是if里面的语句不执行的话,整个程序完全正常,但是只要gameover=1了,函数结束的时候就会跳出stack around the variable 'insx2' was corrupted;

2.如果把insx1和insx2放到全局变量上,就会显示stack around the variable 'score' was corrupted,如果把score也放到全局变量上,游戏结束时直接跳出Buffer!=nullptr&&buffer_count>0;

3.如果给score初始化,也会跳Buffer!=nullptr&&buffer_count>0.

实在不知道怎么回事了,跪求大佬指点!!

	char insx1[] = "按AWSD或者方向键控制方向";
	char insx2[] = "连按方向键可以加速";
	WriteConsoleOutputCharacter(*hOutPutPoint, insx1, strlen(insx1), cursor, &bytes);
	cursor.Y++;
	WriteConsoleOutputCharacter(*hOutPutPoint, insx2, strlen(insx2), cursor, &bytes);
	SetConsoleActiveScreenBuffer(*hOutPutPoint);
	if (gameover) {
		char score[100] = { 0 };
		sprintf_s(score, strlen(score),"您的分数为:%d重来请按1,退出可按任意键", (arr[head_v][head_h] - 2) * 3);
		cursor.Y++;
		WriteConsoleOutputCharacter(*hOutPutPoint, score, strlen(score), cursor, &bytes);
		if (_getch() == 1)main();
	}

 

0个回复
MAGIC_JOE_0v0
MAGIC_JOE_0v0
2021/01/17 22:54
  • c++

萌新求教,请问码代码的时候如何快速移动光标,除了用方向键还有其他办法吗,环境为Dev C++

如图,光标往前移动几格或移动到上一行或移动到 } 后,都该如何操作呢?

0个回复
qq_45389465
姚高鹏
2021/01/17 22:40
  • 开发语言
实现下面的的修改操作
 @Modifying
    @Query("update dmp_collection_offline  set successNum= :successNum,failNum= :failNum,endDate=:endDate where id= :id ")
    fun updateByid1(@Param("id") id: String,
                   @Param("successNum") successNum: Int?,
                   @Param("failNum") failNum: Int?,
                   @Param("endDate") endDate: Date?)

 

0个回复